home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
bbsutil
/
125adev.zip
/
WHO.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-08-08
|
959b
|
51 lines
defint a-z
type whotype
avail as string * 1
username as string * 40
userfrom as string * 40
userbaud as string * 10
activity as string * 40
end type
declare function pdqvali%(st$)
declare function pdqexist%(st$)
dim who as whotype
st$="node1.inf"
if not pdqexist(st$) then st$="node2.inf"
if not pdqexist(st$) then
print "Multinode version is not set up. Exiting."
end 1
end if
open st$ for input as 1
for t=1 to 71
line input #1, multip$
next
close 1
whofile$=multip$+"whoison.dat"
print "Node to view?"
line input n$
nv=pdqvali(n$)
open whofile$ for random shared as 1 len=131
get #1,nv,who
close 1
print "Availability: ";who.avail
print "User: ";who.username
print "From: ";who.userfrom
print "Activity: ";who.activity
print "Baud: ";who.userbaud
end 0